home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / mxgui203.zip / GUI_UTIL.TXT < prev    next >
Text File  |  1997-08-11  |  2KB  |  55 lines
  1. {
  2. ───────────────────────────────────────────────────────────────────────────────
  3.   ▀▀▀   ▀▀▀   ▀▀▀▀▀   ▀▀   ▀▀
  4.   ▀▀▀▀ ▀▀▀▀  ▀▀   ▀▀   ▀▀ ▀▀
  5.   ▀▀ ▀▀▀ ▀▀  ▀▀▀▀▀▀▀    ▀▀▀    ╔══ ╦═╗ ╔═╗ ╦═╗ ╦ ╦ ╦ ╔═╗ ╔═╗
  6.   ▀▀  ▀  ▀▀  ▀▀   ▀▀   ▀▀ ▀▀   ║ ╦ ╠╦╝ ╠═╣ ╠═╝ ╠═╣ ║ ║   ╚═╗
  7.   ▀▀     ▀▀  ▀▀   ▀▀  ▀▀   ▀▀  ╚═╝ ╩╚═ ╩ ╩ ╩   ╩ ╩ ╩ ╚═╝ ╚═╝
  8. ───────────────────────────────────────────────────────────────────────────────
  9.   The MAX Graphics GUI Kit is Copyright 1995-Current Larry L. Athey (LA-Soft).
  10.   Color Averaging procedures are courtesy of Sean Price (Rude Dog Software).
  11. ───────────────────────────────────────────────────────────────────────────────  }
  12.  
  13. INTERFACE
  14.  
  15. CONST
  16.  _DOS = 0; {DOS               }
  17.   OS2 = 1; {OS/2              }
  18.   WIN = 2; {WinDoze           }
  19.   DV  = 3; {DesqView          }
  20.  
  21. VAR
  22.   OS              : BYTE;       {The current operating system running.        }
  23.   ProgramVersion  : STRING[10]; {The version of your program.                 }
  24.   ProgramName     : STRING[40]; {The name of your program.                    }
  25.  
  26. {───────────────────────────────────────────────────────────────────────────}
  27. FUNCTION AllCaps(S : STRING) : STRING;
  28. FUNCTION BooleanToStr(B : BOOLEAN) : STRING;
  29. FUNCTION BoolToStr(B : BOOLEAN) : STRING;
  30. FUNCTION StrToBool(S : STRING) : BOOLEAN;
  31. FUNCTION IntToStr(N : LONGINT) : STRING;
  32. FUNCTION StrToInt(S : STRING) : LONGINT;
  33. FUNCTION StripLead(St : STRING; Ch : CHAR) : STRING;
  34. FUNCTION StripTrail(St : STRING; Ch : CHAR) : STRING;
  35. FUNCTION StripBoth(St : STRING; Ch : CHAR) : STRING;
  36. FUNCTION Center(St : STRING; MaxPlace : BYTE) : STRING;
  37. FUNCTION PadRight(S : STRING; Ch : CHAR; Len : BYTE) : STRING;
  38. FUNCTION PadLeft(S : STRING; Ch : CHAR; Len : BYTE) : STRING;
  39. FUNCTION FSize(Fn : PathStr) : LONGINT;
  40. FUNCTION FExist(Fn : PathStr) : BOOLEAN;
  41. FUNCTION FErase(Fn : PathStr) : BOOLEAN;
  42. FUNCTION DExist(Fn : PathStr) : BOOLEAN;
  43. FUNCTION CopyFile(SourceFile,TargetFile : STRING) : BYTE;
  44. FUNCTION GetFileName(InString : STRING) : STRING;
  45. FUNCTION GetFilePath(InString : STRING) : STRING;
  46. FUNCTION FixPath(Txt : STRING) : STRING;
  47. FUNCTION NoPath(Txt : STRING) : STRING;
  48. FUNCTION OSstr : STRING;
  49. {───────────────────────────────────────────────────────────────────────────}
  50. PROCEDURE MakeDir(DirName : STRING);
  51. PROCEDURE TimeSlice;
  52. PROCEDURE DetectOS;
  53. PROCEDURE ClearKeyBuffer;
  54. {───────────────────────────────────────────────────────────────────────────}
  55.